Min and Max in Perl

Category:Perl http://www.perlmonks.org/?node_id=406883

use List::Util qw[min max];

print min(1, 2, 3);
print max(1, 2, 3);

@mm=(50,2,4,5,100);
$min=(sort { $a <=> $b } @mm)[0];
$max=(sort { $a <=> $b } @mm)[-1];
print $min."\n";

@mm=(50,2,4,5);
$x = 10; $y = 2;

# 1
$min=(sort { $a <=> $b } @mm)[0];

# 2
$min = ($x, $y)[$x>$y];

# 3
sub min ($$) { $_[$_[0] > $_[1]] };
$min = min(2,10);

# 4
$min = ($x + $y - abs($x - $y)) / 2;
$max = ($x + $y + abs($x - $y)) / 2;

print $min."\n";